home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / nrpas13.arc / SPLIE2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-01  |  615b  |  23 lines

  1. PROCEDURE splie2(x1a,x2a: glnarray; ya: glmbyn;
  2.        m,n: integer; VAR y2a: glmbyn);
  3. (* Programs using routine SPLIE2 must define the types
  4. TYPE
  5.    glnarray = ARRAY [1..nn] OF real;
  6.    glmbyn = ARRAY [1..m,1..n] OF real;
  7. in the main routine. The dimension nn of glnarray must be set to the larger
  8. of n and m. *)
  9. VAR
  10.    k,j: integer;
  11.    ytmp,y2tmp: glnarray;
  12. BEGIN
  13.    FOR j := 1 TO m DO BEGIN
  14.       FOR k := 1 TO n DO BEGIN
  15.          ytmp[k] := ya[j,k]
  16.       END;
  17.       spline(x2a,ytmp,n,1.0e30,1.0e30,y2tmp);
  18.       FOR k := 1 TO n DO BEGIN
  19.          y2a[j,k] := y2tmp[k]
  20.       END
  21.    END
  22. END;
  23.